home *** CD-ROM | disk | FTP | other *** search
/ Programmers Heaven 2 / Programmers Heaven 2.iso / files / windows / ocx / bmplst.exe / CHECKLST.FRM (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1997-07-14  |  4.3 KB  |  124 lines
  1. VERSION 4.00
  2. Begin VB.Form frmCheckList 
  3.    Caption         =   "BmpLst - Check List Sample"
  4.    ClientHeight    =   2805
  5.    ClientLeft      =   1755
  6.    ClientTop       =   1515
  7.    ClientWidth     =   4710
  8.    Height          =   3210
  9.    Left            =   1695
  10.    LinkTopic       =   "Form1"
  11.    ScaleHeight     =   2805
  12.    ScaleWidth      =   4710
  13.    Top             =   1170
  14.    Width           =   4830
  15.    Begin VB.PictureBox picChecked 
  16.       AutoSize        =   -1  'True
  17.       BackColor       =   &H00FFFFFF&
  18.       BorderStyle     =   0  'None
  19.       Height          =   165
  20.       Left            =   360
  21.       Picture         =   "checklst.frx":0000
  22.       ScaleHeight     =   165
  23.       ScaleWidth      =   165
  24.       TabIndex        =   2
  25.       Top             =   2640
  26.       Visible         =   0   'False
  27.       Width           =   165
  28.    End
  29.    Begin VB.PictureBox picUnchecked 
  30.       AutoSize        =   -1  'True
  31.       BackColor       =   &H00FFFFFF&
  32.       BorderStyle     =   0  'None
  33.       Height          =   165
  34.       Left            =   120
  35.       Picture         =   "checklst.frx":00DA
  36.       ScaleHeight     =   165
  37.       ScaleWidth      =   165
  38.       TabIndex        =   1
  39.       Top             =   2640
  40.       Visible         =   0   'False
  41.       Width           =   165
  42.    End
  43.    Begin BmplstLib.BmpList BmpList1 
  44.       Height          =   2535
  45.       Left            =   120
  46.       TabIndex        =   0
  47.       Top             =   120
  48.       Width           =   4455
  49.       _Version        =   131074
  50.       _ExtentX        =   7858
  51.       _ExtentY        =   4471
  52.       _StockProps     =   77
  53.       ForeColor       =   -2147483640
  54.       BackColor       =   -2147483643
  55.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  56.          Name            =   "MS Sans Serif"
  57.          Size            =   8.25
  58.          Charset         =   0
  59.          Weight          =   400
  60.          Underline       =   0   'False
  61.          Italic          =   0   'False
  62.          Strikethrough   =   0   'False
  63.       EndProperty
  64.       BorderStyle     =   1
  65.       BorderEffect    =   2
  66.       BottomMargin    =   0
  67.       ItemHeight      =   600
  68.       ItemPlacement   =   2
  69.       ItemWidth       =   1800
  70.       LeftMargin      =   120
  71.       MultiColumn     =   0   'False
  72.       MultiSelect     =   0
  73.       NumColumns      =   0
  74.       Sorted          =   0   'False
  75.       TopMargin       =   0
  76.       VertGap         =   60
  77.       ColDelim        =   "    "
  78.       HScroll         =   -1  'True
  79.       ValueCol        =   -1
  80.       Dividers        =   0
  81.       DividerEffect   =   0
  82.       FindCol         =   -1
  83.       BlinkInterval   =   500
  84.       SortCol         =   ""
  85.       SortOrder       =   0
  86.    End
  87. Attribute VB_Name = "frmCheckList"
  88. Attribute VB_Creatable = False
  89. Attribute VB_Exposed = False
  90. ' NOTE: BmpList1.ItemPlacement is set to 2
  91. '       in the properties browser.
  92. Option Explicit
  93. Private Sub BmpList1_Click()
  94.    ' Change to the correct picture.
  95.    If BmpList1.ItemData(BmpList1.ListIndex) Then
  96.       BmpList1.Picture(BmpList1.ListIndex) = picUnchecked.Picture
  97.    Else
  98.       BmpList1.Picture(BmpList1.ListIndex) = picChecked.Picture
  99.    End If
  100.    ' Keep track of the current value of the item clicked.
  101.    BmpList1.ItemData(BmpList1.ListIndex) = Not BmpList1.ItemData(BmpList1.ListIndex)
  102. End Sub
  103. Private Sub Form_Load()
  104.    ' Add entries to the BmpList box.
  105.    ' Store the check box state in the ItemData
  106.    ' property.  All items here are initially unchecked
  107.    ' (except the first item, Install Software).
  108.    BmpList1.AddItem "Install Software"
  109.    BmpList1.Picture(BmpList1.NewIndex) = picChecked.Picture
  110.    BmpList1.ItemData(BmpList1.NewIndex) = True
  111.    BmpList1.AddItem "Install Sample Files"
  112.    BmpList1.Picture(BmpList1.NewIndex) = picUnchecked.Picture
  113.    BmpList1.ItemData(BmpList1.NewIndex) = False
  114.    BmpList1.AddItem "Install Clip Art Files"
  115.    BmpList1.Picture(BmpList1.NewIndex) = picUnchecked.Picture
  116.    BmpList1.ItemData(BmpList1.NewIndex) = False
  117.    BmpList1.AddItem "Install Sound Files"
  118.    BmpList1.Picture(BmpList1.NewIndex) = picUnchecked.Picture
  119.    BmpList1.ItemData(BmpList1.NewIndex) = False
  120.    BmpList1.AddItem "Read Version History"
  121.    BmpList1.Picture(BmpList1.NewIndex) = picUnchecked.Picture
  122.    BmpList1.ItemData(BmpList1.NewIndex) = False
  123. End Sub
  124.